home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / SEE_REL.DIR / 00012_Script_12 < prev    next >
Text File  |  1997-07-25  |  729b  |  27 lines
  1. on mousedown
  2.   
  3.   put the mouseh into oldX
  4.   put the mouseV into oldY
  5.   put the rect of window "see_related" into orig_rect
  6.   
  7.   repeat while the stillDown
  8.     put the mouseh into newX
  9.     put the mousev into newY
  10.     
  11.     
  12.     put newX-oldX into deltaX
  13.     put newY-oldY into deltaY
  14.     
  15.     set new_rect = orig_rect
  16.     
  17.     set the left of new_rect = the left of orig_rect + deltaX
  18.     set the right of new_rect = the right of orig_rect + deltaX
  19.     set the top of new_rect = the top of orig_rect + deltaY
  20.     set the bottom of new_rect = the bottom of new_rect + deltaY
  21.     
  22.     set the rect of window "see_related" to new_rect
  23.     updateStage()
  24.     tell the stage to updateStage()
  25.   end repeat
  26. end
  27.